* Apply to: none
* Description: Figure 1

clear

set more off


* Example

* Policy set at 3.8

clear all

set obs 7
gen x = [_n]
gen y = [_n]


input y1 x1 y2 x2
7 3.60 7 1
7 4.00 7 7
end

* Respondent X at 5

graph twoway ///
     (line y x, lcolor(none) lwidth(none)) || ///
	 (pcarrow y1 x1 y2 x2, msize(vlarge) barbsize(2) lcolor(black) mcolor(black) mfcolor(black)), ///
     xlabel(1(1)7, labsize(medlarge)) ylabel(1(1)7, nolabel notick) xline(3.80, lcolor(gray) lwidth(thick) lpattern(dash)) ///
     text(1.82 2.1 "{bf:BP}", size(large) color(gray)) ///
     text(1.17 2.1 "{bf:|}", size(vlarge) color(gray)) ///
     text(1.82 5.5 "{bf:SQ}", size(large) color(gray)) ///
     text(1.17 5.5 "{bf:|}", size(vlarge) color(gray)) ///
     text(3.38 5 "{bf:Respondent X}", size(vlarge) color(gray)) ///
     text(1.57 5 "{bf:|}", size(vlarge) color(gray)) ///
     text(1.17 5 "{bf:|}", size(vlarge) color(gray)) ///
     text(1.97 5 "{bf:|}", size(vlarge) color(gray)) ///
     text(2.37 5 "{bf:|}", size(vlarge) color(gray)) ///
     text(6 3.5 "{bf:Likely to}" "{bf:Support the}" "{bf:Proposition}", size(medlarge) just(left) placement(w)) ///
     text(6 4.25 "{bf:Likely to}" "{bf:Oppose the}" "{bf:Proposition}", size(medlarge) just(left) placement(e)) ///
	 text(-.50 1 "{bf:Most}" "{bf:Liberal}", size(medlarge) just(left) placement(e)) ///
     text(-.50 4 "{bf:In the}" "{bf:Middle}", size(medlarge)) ///
     text(-.50 7 "{bf:Most}" "{bf:Conservative}", size(medlarge) just(right) placement(w)) ///
	 legend(off) ///
	 ytitle(" ") ///
	 xtitle(" " " " " " "{bf:IDEOLOGICAL RATING}", size(large)) ///
	 scheme(s1color) ///
     graphregion(color(white)) plotregion(color(white))

* Use graph editor to erase y-axis

* End
